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Computer  programs 
Data  ecquWtioct 


Two  programs  written  in  Me  for  the  HF9836C  computet  are  described.  While  the  two  proyams 
plow  it,  and  stores  it  on  the  disk;  the  second  employs  (he  tntevmpt  technique,  providing  venatfiity. 
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.  OBJKTIVX 

Thu  objective  of  this  work  was  to  pr ovids  s  coaputsr  program  for  the 
HP9636C  which  could  rood  frequency  date  free  the  HP5345A  frequency  Counter  end 
plot  these  date  on  the  computer  screen#  with  the  option  of  dmping  the  plots 
to  the  line  printer.  The  data  were  also  to  be  recorded  on  disk  for  further 
processing.  While  frequency  was  of  primary  interest  here#  the  program  should 
be  useful  for  other  types  of  data#  such  as  phase  locked  loop  error  voltage  or 
amplitude  readings.  \ 


XMTMOOCTXOW 


^Two  programs  have  been  written  for  the  HP9836C  computer  in  Basic  to 
obtain  frequency  data  from  the "TEP5345A  frequency  counter.  While  the  two  pro¬ 
grams  are  quite  similar#  the  first  one  reads  frequency#  plots  it,  and  stores 
it  on  the  disk,  fbe  main  difference  in  the  second  program  is  that  it  uses  the 
Interrupt  technique,  so  that  between  frequency  measurements  it  can  do  other 
things.  The  first  program  is  listed  in  appendix  a  and  the  second  in  appendix 


DMCRimCM 


Sine.  the  two  progress  m  quit,  similar,  only  the  first  on.  will  be 
described  in  detail.  Hw  original  program  was  written  by  R.  L.  Kellogg,  bat 
many  changes  and  additions  ham  sine,  been  mad..  It  is  probabl.  that  furthsr 
improvements  cov  .a  bs  mads  to  tho  program,  bat  as  it  ia  it  does  a  satis¬ 
factory  job. 

This  program  calcalatas  froquaney  offsat  values  from  a  "center  frequency" 
idantifiad  in  tha  program  as  C-band.  ttli  fraqoancy,  aa  aaon  in  tha  program, 
is  100  kite.  Bn  fora  naming  tho  program,  it  will  has.  to  ba  changod  to  tha  can¬ 
tor  fraqoancy  of  whatever  signal  is  of  interest,  tha  program  than  moltiplias 
this  offsat  fraqoancy  by  10  and  eonverta  it  to  XVTBOBt  form  before  storing  it. 
this  has  the  advantage  of  allowing  aooh  more  data  to  bo  stored  oa  a  single 
disk  and  at  tho  asms  tins  provide  a  tamth  Berts  fraqoancy  reeolation.  When 
tho  frequency  is  road  from  tha  disk  it  ia  divided  by  10  before  it  is  used, 
tha  disadvantage  ia  that  it  limits  oaafol  fraqoancy  offset  measurements  to 
between  4-3276  Be  and  -3276  Ba.  normally,  if  tha  fraqoancy  value  is  ootside 
thee,  limits,  tha  computer  quits  and  outputs  tha  message  that  XBVBOBt  limits 
have  bees  exceeded,  ft  avoid  tha  problem  of  the  computer  quitting,  if  any 
value  la  outside  tha  limit,  it  la  sat  to  tha  limit  and  that  vales  stored,  zt 
la  possible  to  store  larger  frequency  offsets,  with  a  corresponding  reduction 
in  frequency  resolution,  by  changing  tha  value  of  tho  constant,  D-real. 
Presently,  it  is  sot  to  16  in  tha  program.  If  it  wars  o  hanged  to  1 ,  frequency 
offsets  between  .32767  end  -36767  could  ho  recorded.  Xn  this  case,  tha  fre¬ 
quency  resolution  would  bo  1  Herts. 


time  of  tha  frequency  ■sasursaant  l. 
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beginning  of  each  256-Maple  data  record  and  this  value  is  subtracted  froa  the 
ties  for  subsequent  measurements  in  the  record*  This  value  is  then  converted 
to  INTEGER*  After  256  frequency  samples  have  been  taken#  the  tine  array  is 
added  to  the  frequency  array  and  stored  as  a  1024-byte  record  in  the  data 
file*  The  starting  time  for  the  record  is  stored  in  a  corresponding  record  as 
a  REAL  number  in  a  separate  file*  When  the  data  are  read  from  the  disk#  the 
process  is  reversed* 

According  to  Kellogg#  this  method  should  allow  about  18  hours  of  fre¬ 
quency  measurements  to  be  stored  on  a  disk  if  measurements  are  made  at  1- 
second  intervals* 


RQn  IMG  THE  PROGRAM 

Before  running  the  program#  make  sure  that  the  address  of  the  frequency 
counter  is  set  to  12  (that  is#  A3  and  A4  are  set  to  1  and  A2  and  A5  are  set  to 
0)*  Also#  make  sure  that  the  switch  marked  TAX*  ORLY  and  ADDRESSABLE  is  in 
the  ADDRESSABLE  position*  These  switches  are  located  on  the  back  of  the 
frequency  counter* 

After  the  program  is  loaded  and  RUM  is  pressed*  the  computer  asks  for  the 
scale  desired  for  the  plot  that  will  be  displayed  on  the  screen*  These  four 
values  are  input  at  one  time*  separated  by  commas*  The  first  value*  called 
MAX*  TIME*  is  the  length  of  the  time  display  on  the  horizontal  axis*  The 
second  value  is  either  an  N  or  an  H*  depending  on  whether  the  first  value  is 
in  minutes  or  in  hours*  The  third  and  fourth  values  are  the  minium  and  the 
maximum  frequency,  in  Bsrts*  to  be  displayed  on  the  vertical  axis* 

This  program  makes  extensive  use  of  what  are  referred  to  as  soft  keys* 
These  are  the  keys  in  the  upper  left  of  the  keyboard*  labeled  K0  through  K9* 
The  function  of  these  keys  can  be  changed  by  the  program*  At  any  given  point 
in  the  program#  the  key  function  is  shown  in  a  corresponding  box  at  the  bottom 
of  the  screen*  However*  these  keys  are  enabled  only  while  the  program  is 
running* 

Once  the  scale  of  the  data  plot  has  been  entered#  the  computer  comes  up 
with  the  display  DATA  ACQUISITION  and  KO  shows  COLLECT  DATA*  While  K4  shows 
REVIEW  DISK*  If  one  wishes  to  collect  data*  KO  is  pressed;  if  data  have 
already  been  recorded  on  a  disk  and  one  wishes  to  see  a  plot  of  the  data*  the 
disk  is  put  in  the  left  drive  and  K4  is  pressed* 


DMA  ACQUXEXTIOH 

Assume  that  KO  has  seen  pressed*  the  next  thing  displayed  is 

REAL-TIKE  COLLBCTXOH 
POT  DATA  DISK  IE  LETT  DRIVE 
INITIALISE  DIM  IT  REQUIRED 

end  KO  now  reeds  OORT*  fAOGRAM  end  K4  reads  IWIT*  OXSK.  tut  a  disk  in  the 
lift  drive*  sad  if  it  has  not  boss  XKKnALSnD#  press  K4i  otherwise*  press  KO* 


Xf  K4  is  pressed,  ths  disk  will  ba  initialised.  Ones  that  is  complete ,  press 
KO  to  continus  ths  program*  The  nsxt  thing  displayed  is 

ready  to  collsct 

whila  KO  reads  START  COLLECT,  K1  reads  G-DOMP  OM/OFP,  K2  reads  CHG*  SCALE,  and 
K4  reads  STOP  COLLECT*  KO  is  pressed  to  start  the  data  collection* 

The  scale  of  the  plot  on  the  screen  can  be  changed  at  any  tine  while  the 
program  is  running  by  pressing  K2*  The  screen  then  displays 

scale  tiee/freq  axes 

Enter  Screen  Width  Time  (Minutes/ Hours) ,  (M/H) 

A  new  time  scale  is  entered,  followed  by  a  comma  and  an  M  or  an  H  to  indicate 
whether  it  is  minutes  or  hours.  The  display  then  shows 

Enter  Screen  Height  Ffcin* ,  Pfcax.  (Hr) 

The  graph  is  then  re-drawn  and  plotting  continues  with  the  new  scale*  Data 
that  were  plotted  on  the  old  graph  will  not  be  shown i  however,  they  will  be 
stored  on  the  disk*  one  point  should  be  emphasised t  during  the  time  that  the 
computer  is  waiting  for  input  (e.g. ,  for  the  new  scale  values),  the  frequency 
counter  is  not  read  and  no  data  are  obtained  • 

TO  terminate  the  data  collection,  K4,  labeled  STOP  COLLECT,  is  pressed* 


REVIEW  PLOT  DISK 

If  K4,  labeled  REVIEW  DISK,  was  pressed,  the  computer  will  plot  ths  data 
in  a  manner  similar  to  what  it  does  for  the  real  time  data,  except  it  gets  it 
from  the  disk*  In  this  case,  KO  now  reeds  START  PLOT,  K1  reads  G-DQMP  T/W,  K2 
reads  CHG*  SCALE,  and  K4  reads  STOP  PLOT*  Hsre,  K2  works  the  same  way  as  has 
already  been  described*  K4  terminates  the  plotting* 


COPYIEG  SCREW  PLOTS  ON  THE  PRINTER 

It  is  possible  to  copy,  or  dvaip,  the  screen  plots  to  the  KP2671G  Printer* 
(The  G  indicates  graphics  capability*)  tty  1  has  been  set  up  with  an  on/off 
toggle  capability*  The  default  condition  is  off*  Push  it  once  and  it  is  on; 
push  it  again  and  it  is  off*  The  status  of  the  key  is  displayed  in  the  lower 
left  corner  of  the  screen  during  both  data  acquisition  and  disk  plotting* 
When  the  dump  routine  is  off,  the  computer  plots  across  the  graph  until  the 
right  limit  is  reached;  then  the  graph  is  erased  and  a  new  one  started  with 
the  starting  time  equal  to  the  ending  time  of  the  previous  plot*  This  is 
repeated  continuously  as  long  as  data  are  taken  or  disk  data  plotted* 

When  key  1  is  in  the  OM  position  the  same  thing  happens,  but  before 
starting  a  new  graph  on  ths  screen  irtien  the  plot  reaches  ths  right  edge,  the 
computer  outputs,  or  dumps,  the  plot  to  the  printer*  TWo  sines  of  plot  are 
possible  1  the  standard  sise  shown  in  figure  1,  and  a  double  else  plot  shown 
in  figure  2*  TO  get  the  larger  sise  plot,  type  DEV  DEVICE  IE  701,  EEPAMDi P 


START  AT  07s04 


An  example  of  frequency  versus  time  plots,  large  graph. 


and  EXECUTE  prior  to  running  the  program,  Vo  gat  back  to  the  smallar  size, 
typa  tha  cam*  thing  without  the  EXPANDED*  This  option  has  been  programed  on 
kay  3*  Tha  default  is  for  a  small  graph*  Key  3  alternates  between  small  and 
large  graph* 

One  thing  should  be  considered  when  dwping  graphics  to  the  printer*  It 
takes  about  30  seconds  to  dump  the  small  graph  and  about  1  1/2  minutes  to  dump 
the  large  graph*  No  frequencies  are  being  read  during  these  times*  If  the 
time  scale  on  the  graph  is  made  short ,  much  data  can  be  missed  while  the 
graphs  are  being  dvmped*  It  is  recommended  that,  when  dumping  graphs  to  the 
printer  while  taking  data,  the  time  scale  be  made  quite  long,  perhaps  4  to  6 
hours,  to  minimise  this  problem.  If  greater  time  resolution  is  needed  it  can 
be  obtained  by  plotting  the  data  from  the  disk. 


9CRm  DISPLAY  AMD  PLOTS 

Most  of  the  information  displayed  on  the  screen,  both  for  the  data  acqui¬ 
sition  and  the  disk  plots,  is  fairly  self  explanatory*  The  current  frequency 
value  is  displayed  in  the  upper  left  corner*  To  the  right  of  it  is  shown  its 
number  position  in  the  current  record*  Tb  the  right  of  that  is  the  total  num¬ 
ber  of  data  samples  since  recording  began*  In  the  upper  right,  current  time 
is  displayed  in  hours,  minutes,  and  seconds  if  data  are  being  acquired.  If 
they  are  being  plotted  from  the  disk,  it  is  the  time  when  the  measurement  was 
made*  In  the  lower  right  is  displayed  the  number  of  the  current  record,  and 
in  the  lower  left  the  status  of  the  graphics  dump  is  shown*  At  the  top  center 
of  the  graph  the  center  frequency  is  shown.  None  of  these  is  part  of  the 
graph* 

the  border,  scale,  and  labels  of  the  graph  on  the  screen  are  plotted  in 
blue*  the  frequency  data  are  plotted  in  yellow.  If  the  frequency  falls  out¬ 
side  the  current  frequency  limits  of  the  graph,  the  data  point  is  plotted  at 
the  limit  of  the  frequency  scale  in  red  to  indicate  that  a  frequency  measure¬ 
ment  occurred  at  this  time,  but  that  it  was  off  scale.  A  replot  of  the  data 
with  a  sufficiently  large  frequency  scale  would  permit  these  points  to  be 
plotted  in  their  correct  positions* 

As  stated  earlier,  any  frequency  data  that  exceed  the  INTEGER  capability 
of  the  computer  are  set  to  the  INTEGER  limit  before  being  stored.  These 
values  will  toe  plotted  at  this  limit  if  the  frequency  scale  is  large  enough* 
The  true  frequency  values  of  these  points  cannot  be  recovered*  These  points 
will,  however,  give  an  indication  of  how  much  frequency  data  are  falling  out¬ 
side  the  capabilities  of  the  recording  system*  If  enough  data  are  falling 
outside  the  limits  and  these  data  are  considered  to  toe  of  interest,  it  may  be 
advisable  to  increase  the  frequency  range  capabilities  of  the  system  even 
though  it  will  reduce  the  frequency  resolution  correspondingly*  If  most  of 
the  dots  are  out  of  range  on  one  side,  it  nay  only  toe  necessary  to  change  the 
center  frequency. 

This  program  heo  the  option  of  displaying  or  not  displaying  the  data  and 
graphs*  Tbt  is  accomplished  with  the  use  of  key  5  end  tits  alpha  and  graphics 
keys.  If  tbs  graph  end  data  are  toeing  displayed,  push  key  5  ones  and  only  the 
graph  will  display.  Midi  it  mpein  and  the  data  dl«pi*r  will  return.  Meh  Me 
alpha  hay  aad  the  graph  will  disappear.  Meh  the  graphics  kay  aad  it  will 


reappear.  To  completely  blank  the  screen ,  first  push  key  5,  then  the  alpha 
key.  To  recover  the  graphics,  push  the  graphics  key.  To  recover  the  data 
display,  push  key  5  again.  Key  5  alternates  betwssn  showing  the  data  display 
and  not  showing  it. 
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Nearly  everything  about  the  first  program  ifpllM  to  the  second  program* 
liatad  in  Appendix  B.  However,  while  the  program  liatad  in  Appendix  A  ia 
limited  to  making  frequency  measurements,  plotting  them,  and  storing  them  on 
disk,  the  second  program  can  be  doing  other  calculations  as  well.  Ibis  is 
because  it  uses  the  INTERRUPT  capabilities  of  the  system.  When  the  frequency 
counter  has  completed  a  frequency  measurement  it  lets  the  computer  know,  ihe 
computer  accepts  the  measurement,  plots  it,  and  stores  it.  Between  measure¬ 
ments,  the  computer  can  be  doing  other  things. 

As  the  program  is  currently  written,  the  computer  sits  in  an  idle  loop 
and  displays  Use  and  the  last  frequency  measurement,  among  other  things, 
while  waiting  for  a  new  measurement.  This  is  redundant  information  and  is 
used  only  to  show  whore  the  computer  is  between  frequency  measurements.  This 
idle  loop  can  be  replaced  with  whatever  program  calculations  are  of  interest. 

It  should  be  noted  that,  even  though  this  program  uses  an  interrupt  tech¬ 
nique,  no  data  are  taken  while  the  program  is  waiting  for  input  from  the  key¬ 
board,  receiving  input  from  disk,  or  while  outputting  to  the  disk  or  to  the 
printer.  This  it  has  in  common  with  the  first  program. 

Also,  this  second  program  has  the  option  of  displaying  or  not  displaying 
data  during  acquisition.  This  is  accomplished  with  key  5  and  the  alpha  and 
graphics  keys,  as  was  described  for  the  first  program. 


SUMMARY 


Two  programs  to  acquire  frequency  data  with  ths  uss  of  the  HP5345A 
Frequency  Counter  have  been  described.  These  programs  have  been  written  in 
Basic  for  the  HP9836C  computer.  The  two  programs  are  quite  similar,  except 
that  the  second  program  uses  the  interrupt  method  so  that  other  calculations 
can  be  performed  between  frequency  measurements.  Both  programs  read  frequency 
data,  plot  them  on  the  computer  screen,  and  store  them  on  disk  for  future 
processing. 

Screen  plots  of  the  frequency  data  can  be  dumped  to  the  printer,  if 
desired,  both  when  data  are  being  plotted  as  they  are  being  read  and  **en  they 
are  being  plotted  from  the  disk.  These  plots  can  be  either  of  two  sises. 


APPENDIX  A 

DATA  ACQUISITION  PROGRAM  QMS 


1 


SIGNAL  COLLECTION  PROGRAM  ONE 


!  SIGNAL  COLLECTION  is  the  acquisition  program 
!  for  fetching  frequency  and  time  data  and 
!  storing  it  onto  a  FLOPPY  disk. 

!  Freq  data  from  HP-5345a  digital  f req  counter 

?  Time  data  from  HP-9836c  internal  clock 

!  Stored  on  left  Floppy  disk  in  BOAT  format 

» 

!  opt i on© *  <t>  screen  display  and  record  in  real-time 
!  <2>  screen  display  from  Floppy  disk  record 


Frequency  data 
Time  data 


HP-Freq  Counter-702 
Resolution  is  .1Hz 
Time  from  internal  clock 
Resolution  is  1  second 


Freq  4  Time  data  are  transferred  to  the  disk 
in  blocks.  It  takes  about  1  second  each  256 
data  points  for  the  file  transfer.  Expect 
I/O  to  the  disk  file  with  minimum  data  loss. 

To  maximize  the  disk  storage  capacity,  both 
Time  and  Frequency  are  stored  as  2-byte 
integer  numbers*  Frequency  is  scaled  to  allow 
.1  Hz  resolution.  Time  storage  is  more 
problematic.  The  juiian  time  of  the  first  data 
word  of  each  256-block  is  stored  in  a  separate 
file  called  "time".  The  actual  time  stored  in 
the  256-block  is  the  number  of  seconds  <+one) 
since  the  filed  Julian  time.  This  allows 
any  256-block  to  range  up  to  32.766  seconds,  or 
about  half  a  day  (or  about  one  time/ frequency 
intercept  every  15  minutes). 


OPTION  BASE  1 
DEG 

DIM  Logo$[ 30 1 
DIM  Filenme$C30J 
INTEGER  F  data<1:256> 
INTEGER  Tldata< 1 ;256> 
REAL  Colors< 15,3) 


!  Title  string 
f  File  name  string 
!  Frequency  data  block 
?  Time  data  block 
!  Color  Map 


OUTPUT  KBD  USING  "#,BM:255,75 
CONTROL  CRT »5; 140 
ASSIGN  9Hp_f  req  TO  712 
REMOTE  #Hp_f  req 


OUTPUT  *Hp_.f  req : "E8" .  "E : "GO" 


!  Clear  screen  of  alpha 
!  Alpha  in  blue  vice  green 
•  HP-FREOUENCY  COUNTER 


1  Bus  700  (select  code) 

!  Add  012  (device  address) 
?  Enables  Remote  4  Addressee 
!  to  Talk . 


Sys_disk$*M : INTERNAL , 4 * 0" 
Sys„data$-M i INTERNAL .4.1” 

F  i  lenme$-"raw_data"A$ys_data$ 
F  i  letme$*“t  ime"4Sys_data$ 
Max_rec-250 

!  IMPORTANT  POINT:  > 

!  > 

!  ONE  DISK  > 

!  > 

!  18  HRS  COLLECTION  > 


X_edg©-9 

Y_edge-8 

T.jiidth-5 

F_width-200 

CJ>and- 100000 

L_pos-1 

D_resl*l 0 


Flimit-3276 7 
Dump$-"OFF" 

PltS-"N" 

DUMP  DEVICE  IS  707 
GsizeS-"SMALL  GRAPH" 
DsplyS-"ON" 


!  Right  disk  for  programs 
!  Left  disk  for  data 
(  Raw  data  file 
!  Start  time  file 
!  Raw  data  file  record  length 
!  Disk  holds  max  270*336  bytes 
!  Utilization  as  follows: 

!  256x<2*2>-1024  bytes/record 
!  1024x250  -256*000  bytes/disk 

i 

!  If  the  data  rate  is  one 
!  measurement  per  second*  then 
!  256x250  *64000  time/freq  pts 

•  64000/86400- .74  days- 18  hrs 

♦ 

?  Clip  edge  of  screen 
!  Clip  height  of  screen 
!  Time  width  default-5  minutes 
!  Freq  width  default-*/-  200  Hz 

•  Freq  center  defaul t- 1 00000  Hz 

•  Logo  position  default 

?  10  gives  1  decimal  point 
!  resolution.  This  allows  an 

•  INTEGER  range  of  */-  3.276  kHz. 

•  Default,  no  graphics  dump  to 
!  the  printer 

1  Default*  no  plot  to  HP  7470A 


940  !  •*•***•**.**« 

950  ! 

960  ! 

970  !  ********* 

980  Start_screen;  ! 


BEGIN 


PROGRAM 


INPUT  '’CENTER  FREQUENCY  <Hz)"*CJ>and 


1000  INPUT  "MAX.  TIME , <M/H) *  MIN. .MAX.  FREQ.  <For  plotting)" * T_width * TmS.Fmin *F 
max 

1010  F_width-<Fmax-Fmin) 

1020  ?  ********* 

1030  GOSUB  Set-up 
1040  t  ********* 

1050  Begin: ! 

1060  ?  ********* 

1070  Logo$*"DATA  ACQUISITION"  t  Let  operator  choose  option 

1080  GOSUB  Background 

1090  GOSUB  Logo 

1100  GOSUB  Clrjceys 

1110  GOSUB  RtOJceys 

1120  GOTO  Malt  loop 

1130  Ky«t!/////7///////////  K«y  AuifnMnt*  ///////////////////////////// 

1140  RtOJityt:! 

I  ISO  ON  KEY  0  LABEL  "COLLECT  DATA"  GOTO  R#*l_ t in 
1160  ON  KEY  4  LABEL  "REVIEM  DISK"  GOTO  Plot_di»k 
1170  RETURN 
1 1B0  Rtl Jt*y** f 

1190  ON  KEY  6  LABEL  "CONT.  PROGRAN"  GOTO  Rt.lb 
1200  ON  KEY  4  LABEL  "INIT.  DISK"  COSUB  Rt_1* 


Vi 


1210  RETURN 
1220  Rt2_keys:! 

1230  ON  KEY  0  LABEL  "START  COLLECT"  GOTO  Rt  2a 

1240  ON  KEY  1  LABEL  "GJHJMP  ON/OFF"  GOSUB  Q'ldmp 

1250  ON  KEY  2  LABEL  M  CH6.  SCALE”  GOSUB  T  scale 

1260  ON  KEY  3  LABEL  "GRAPH  SIZE”  GOSUB  G  site 

1270  ON  KEY  4  LABEL  "STOP  COLLECT"  GOTO  Ift  2b 

1280  ON  KEY  5  LABEL  "DISPLAY  OFF/ON"  GOSUB~Dsply 

1290  RETURN 
1300  Rt3Jeeys: ! 

1310  ON  KEY  0  LABEL  "START  PLOT"  GOTO  Rt_3a 

1320  ON  KEY  1  LABEL  "G_DUHP  ON/OFF"  GOSUB  G  dap 

1330  ON  KEY  2  LABEL  "CffG. SCALE"  GOSUB  T  scaTe 

1340  ON  KEY  3  LABEL  "GRAPH  SIZE"  GOSUB  G  site 

1350  ON  KEY  A  LABEL  "STOP  PLOT"  GOTO  Rt  5b 

1360  ON  KEY  5  LABEL  "DISPLAY  OFF /ON"  GOSUB  Dsply 

1370  RETURN 
1380  Clrjceys:! 

1390  ON  KEY  0  LABEL  ""  GOSUB  No.opt 

1400  ON  KEY  1  LABEL  ""  GOSUB  No  opt 

1410  ON  KEY  2  LABEL  ""  GOSUB  No.opt 

1420  ON  KEY  3  LABEL  ""  GOSUB  No_opt 

1430  ON  KLY  4  LABEL  ""  GOSUB  No_opt 

1440  ON  KEY  5  LABEL  ”"  GOSUB  No  opt 

1450  ON  KEY  6  LABEL  ""  GOSUB  No~opt 

1460  ON  KEY  7  LABEL  ""  GOSUB  Nolopt 

1470  ON  KEY  8  LABEL  ""  GOSUB  No_oet 

1480  ON  KEY  9  LABEL  ""  GOSUB  No  opt 

1490  RETURN 
1 500  * 

1510  G_dmp:lF  DumpS -"OFF"  THEN 
1520  Du»pS*"ON" 

1530  IF  Dsply$“"ON"  THEN 

1540  PRINT  TABXY<9. 17) ; "GRAPHICS  DUHP  IS  ON  " 

1550  PRINT  TABXY130 ,17) :Gsi teS 

1560  END  IF 

1570  ELSE 

1580  Du*pS*"OFF" 

1590  IF  Dsply$-"ON"  THEN 

1600  PRINT  TABXY<9.17> :"GRAPHICS  DUHP  IS  OFF" 

1610  PRINT  TABXY<30.17>:Gs»te* 

1620  END  IF 

1630  END  IF 
1640  RETURN 
1650  ! 

1660  G_site:  ! 

1670  IF  Gslte$-"LARGE  GRAPH"  THEN 
1680  DUHP  DEVICE  IS  701 

1690  Gslte*-"SHALL  GRAPH" 

1700  PRINT  TABXY(30 .17) :Gsi teS 

1710  ELSE 

1720  DUHP  DEVICE  IS  701 .EXPANDED 

1730  GslieS-"LARGE  GRAPH" 

1740  PRINT  TABXY<30. 1 7) :Gsi teS 

1750  END  IF 

1760  RETURN 

1770  Dsply:  1 

1780  IF  DsplyS*"ON"  THEN 

1790  Dsply*-"OFF" 

1800  PRINT  CHR$< 12) 


1810  ELSE 

1820  DsplyS-'W 

1830  GOSUB  Rente 

1840  END  IF 

1850  RETURN 

1880!  **•*••*** 

1870  Background:! 

1880  CLIP  OFF 
1890!  ********* 

1S00  GCLEAR 

1910  AREA  PEN  Grey 

1920  OUTPUT  KBD  USING  "#,8M;255,75 

1930  Cl  IP  ON 

1940  RETURN 


1950! 

1980  Logo:! 
1970!  ****** 


1980  L0RG  4 

1990  PEN  Yellow 

2000  CSIZE  Large 

2010  FOR  1-0  TO  .1  STEP  ,04 

2020  HOVE  L1_pos+I ,L_pos 

2030  LABEL  LogoS 

2040  NEXT  I 

2050  L_pos-1 

2080  RETURN 

2070!  . 


!  Grey  background 
!  Erase  alphanumeric  writing 


!  Center  logo 
!  Always  yellow 
!  Always  large  letters 


!  Bold  characters 
!  Re-estab  logo  default  position 


2080  Graf:  !////////////////  Graphics  Routine  ///////////////////////// 
2090  $creen_grid; 9 
2100!  . 

2110  IF  PltSOMYH  THEN  GOSUB  Background  !  Set  up  grey  background 

2120  IF  T*$-"fr  THEN,  TeeS-*'  Minutes  " 

2130  IF  Tm$-MHM  THEN  TweS-M  Hours  H 
2140  GOSUB  Rerite 
2150  IF  PltSO"Y"  THEN  PEN  Ltgrey 
2160  IF  Pit$-"Y"  THEN  PEN  1 

2170  CLIp  “X_edge,X_edge,-Y  edge»Y^edge  !  Clip  graph  area  to  9m8 

2180  IF  PltSO"r  THEN  PEN  flu* 

2190  ! 

2200  !•*•**  SCALE  TIME  AXIS  -•••**«.*— 

2210  IF  T_wldth<»10  THEN  Xttc*X.*d9*/<T  width«6> 

2220  IF  T_i*idth>  10  AND  T  wldth<»20  THEN~Xtic-X_*dg*/ < T_width»3) 

2230  IF  T_width>20  THEN  X«*j-2 
2240  IF  T_wldth<-20  THEN  Xm)-6 
2250  IF  T_width>20  THEN  Xt tc-X_*dg*/(T  width) 

2260  ! 

2270  !•«•••  SCALE  FREQUENCY  AXIS  ••**** 

2280  Ytic*Y_*dg*/2S 
2290  YmI'S 
2300  Yst*p*Yttc*Ynaj 
2310  Fst*p*F_width*Y«t*p/<2*Y_*d9«> 

2320  f ••••**••*•**••*•••*****•**•***•******• 

2330  IF  PltS<>"Y"  THEN  PEN  Lt«r*y 
2340  IF  Plt8-"Y"  THEN 

2350  INPUT  "DO  YOU  MANT  TO  DRAM  A  GRID  (Y/N)”.GrdS 
2360  IF  6rd8>”Y"  THEN 

2370  PEN  2 
2380  !  GRID  Xtlc.Ytic 

2390  END  IF 

2400  END  IF 


'  ‘  ’  (Me#*** 


“  Wflr 


kxx  -e. 

'•  '  •■••••  .<«  >-,*Ppy«hl.-  '■J.V 


•IF  PltSO'T'  TrttN  GRID  Xtic.Ytic  !  Draw  black  grid 

IF  Plt$<>"Y"  THEN  PEN  Blue 
IF  PI t$*"Y"  THEN  PEN  t 

AXES  Xt  ic ,  Yt  ic  ,9 .8  .Xaaj  ,  Yaa.t  '  Draw  blua  axes 

AXES  Xtic.Ytic,-9.-8.Xmaj,Ynaj  !  Draw  blua  axe* 

CLIP  OFF 

Xaxis:  ?+  !  Label  T im  Axis 

?  ♦♦♦♦♦♦♦ 

IF  T_width<6  THEN  Tstep*Xt ic*Xma j 
IF  T_widt!i>-6  THEN  Tstep-2*Xt ic«Xmaj 
FOR  1-0  TO  2*<X_edge+.1 )  STEP  Tstep 
CSIZE  3 
LORG  S 

MOVE  -X_edge+I.-8.02 
T_x-T_uidth*I/(2«X_edge) 

LABEL  USING  ”K”;T_x 
NEXT  I 
MOVE  0,-8. 6 

LABEL  USING  "K’V'TIME  <M ;  Tme$:M>M 
?  + 

Yaxis:  !  Label  Frequency  A* 

•  +  *►♦♦  +  ♦♦♦  + 

FOR  J-o"tO  2*Y_edge+ .  1  STEP  Ystep 
LORG  8 

IF  FmaxX  1 000  OR  Fmin<- < -  1 000 )  THEN 
Fval-F_y/1 000 

IF  ABS(Fval)<1 .E-6  THEN  Fval-0 
ELSE 

Fvai-F  y 

IF  ABS(FvalXI  .E-6  THEN  Fval-0 
END  IF 

MOVE  -9.1a -Y_edge*J 
LABEL  USING  MK":Fval 
F_y-F_y ♦Fs tep 
NEXT  J 
LDIR  80 
MOVE  -10.47,0 
LORG  4 

IF  Fmax>» 1 000  OR  Fnun<-< -1000)  THEN 
FrS-"kHi 
ELSE 

Fr$-"Hz.M 
END  IF 

LABEL  USING  "K" ; "FREQUENCY  (  M;Fr$:M  >" 

LDIR  0 
CLIP  ON 
RETURN 
! 

Dd:  !////////////////  Data  Display  Routine  /////////////////////////// 
Display .data:  ! 

f  «*••••»»» 

WHILE  Grid>-X_edge  !  Check  for  screen  edge 

GOSUB  Screen.gr  id 

T ime.zero-Time  ?  Set  time  ordinate 

LORG  4 
LDIR  0 
CSIZE  3 


!  Draw  blue  axes 
!  Draw  blue  axes 


!  Label  Time  Axis 


!  Label  Frequency  Axis 


MOVE  0.8.15 
CLIP  OFF 
PEN  Blue 

LABEL  USING  "KM; “START  AT  " : T1ME$< Tine  zero); 
CLIP  ON 
Gr id-0 
END  WHILE 

IF  DsplyS-’W  THEN 

PRINT  TABXY<9.5>;"  "!  CLEAR  DA 

PRINT  TABXY<9,5);Freq  !  Display 

PRINT  T ABX Y <21 ,5>;Icount 
PRINT  TABXY<26.5) ;Pcount 

PRINT  T ABX Y <85 .5) ;  TIMESt Time)  !  DisplayH 

PRINT  TABXY<88 ,18) ; Record  nr 
ELSE 

PRINT  CHRS02) 

END  IF 

Tpos-T  me-T  in»e_zero  !  Seal*  Ti 

IF  TeS-"MM  THEN  Xpos-Tpos/30«<X  edge/T_uidth> 

IF  Tm$«MH"  THEN  Xpos-Tpos/1800«<X_edge/T^width) 
Xpos  *  Xpos - X_edge 
Fpos-F  req-Fmin 

Ypos-Fpos«2«Y_edge/<Fma*-Ffiin)-  Y_edge 
Gr id*Xpos 

IF  Gnd>X_edge  AND  Du*pS«"0N"  THEN  GOSUB  Gdu»p 


'  ;DATE$<  T ine„zero> 


!  CLEAR  DATA 

!  Display  FREQ  resolution  to  ”D_resl’ 
!  Disp layHR ; MIN : SEC 


Seal*  Tine  axis 


IF  Gr id>X_edge  THEN  Display  data 
IF  ABS<Fdata)<F limit  THEN 
IF  PI tS<>*'YM  THEN  PEN  Yellow 
IF  PltS-"Y"  THEN  PEN  1 
MOVE  Xpos , Ypos 
RPLOT  0.0.-1 
END  IF 

IF  Freq>-Fmax  OR  F data>-F 1 imi t  THEN 
IF  PltSO-Y"  THEN  PEN  Red 
IF  PI t$*"Y"  THEN  PEN  2 
HOVE  Xpos  f  Y_edge» , 97 
RPLOT  0,0,-? 

END  IF 

IF  Freq<-Fmn  OR  Fdata<*-F  1  imi t  THEN 
IF  Plt$<>"Y"  THEN  PEN  Red 
IF  PltS-“YM  THEN  PEN  2 
HOVE  Xpos , - Y_edge» . 9  7 
RPLOT  0,0,-1 
END  IF 
RETURN 


!  Oops... right  edge  run  off 


t  Plot  data  to  screen 
!  PEN  UP 


T_scale:  !  ////////////////  Change  Graphics  Scale  //////////////////// 

Logo$«”scale  tine/freq  axes'* 

GOSUB  Background 
GOSUB  Logo 

PRINT  TABXY<25, 15) ;MEnter  Screen  Width  Tine  (» i nut es/ hours) , <H/H)" 
INPUT  MT itse  M , T_width , TnS 

PRINT  TABXY<25 , 16)  ;f,Enter  Screen  Height  Fein.,  Faa*.  Hi)" 

INPUT  "Freq  ,\FmntFnax 
F^eidth-Fisax-Fniin 
LogoS*"cont inueM 
GOSUB  Background 
L  Dot-  .5 
GifSUB  Set-up 


36)0 

3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 


GOSUB  Graf 
fGOSUB  Logo 
LORG  4 
LDIR  0 
CSIZE  3 
MOVE  0.8.15 
CLIP  OFF 
PEN  Blue 
LABEL  USING 
CLIP  ON 
RETURN 


’K";  "START  AT  ":TIMES<Tiaa_iero> ;"  " ; DA TE$< T iM_nr'o> 


3730  Colo r_n»ap :!//////////////  Color  Map  /////////////////////////////// 


3740  ! 


3750 

DATA 

0,0,0,  1,1,1 

*  <2. ,2, 

2,  1,0,0 

i  0,1,0, 

0,0,1  . 

3760 

DATA 

.1..1..1.  o, 

1,0,  0,0 

,1,1, 1,0, 

0,1,0, 

0.1,1, 

3770 

!  pen  0 

black 

pen  6 

blue 

pen 

3780 

!  pen  1 

white 

pen  7 

yellow 

pen 

3790 

?  pen  3 

grey 

pen  8 

It  grey 

pen 

3800 

!  pen  4 

red 

pen  8 

green 

pen 

3810 

?  pen  5 

green 

pen  10 

blue 

pen 

3820 

3830 

3840 

3850 


1.1.0 

1,0,1,  1,0,1 

11  yellow 

12  green 

13  cyan 

14  blue 

15  magenta 


?  Dummy  routine 


f  Wait  Loop 

♦  ////////////////////Real-time  Data  Collection //////////////////// 

t  »»««»«»•» 

!  Begin  real -tine  program 


Set  up  screen 


No_opt : RE TURN 

»  ********* 

Wait_loop:BEEP  160.. f 
3860  Loop': GOTO  Loop 
3870 
3880 

Real_t ime : 

f  ********* 

Logo$*MREAL~  T IME  COLLECTION" 

GOSUB  Background 
GOSUB  Logo 
GOSUB  Clrjceys 
GOSUB  Rt1_keys 
CSIZE  Medium 
LORG  4 

LABEL  ""PUT  DATA  DISK  IN  LErT  DRIVE" 

LABEL  ""INITIALIZE  DISK  IF  REQUIRED” 

CSIZE  Small 
PEN  Green 

LABEL  "(COLLECTION  REPLACES  PREVIOUS  DATA  ON  THIS  DISK.  Racord  by  Racord)" 
?°///////7///////////  Initialita  Data  Disk  /////////Z7///7/////7/7/ 


3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060  !  **** 
4070  Rt_J a: 


Change  Color 


4080 

4080 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4180 

4200 


CSIZE  Medium 
LORG  4 
LABEL  i,M 
LABEL  MM 

LABEL  "INITIALIZATION  STARTED" 
INITIALIZE  Sys_dataS 
Logo$*"cont Inua" 

GOSUB  Background 
GUSUB  Logo 
BEEP  160.. 1 
RETURN 


Request  initiiiation 


Initialua  laft  data  disk 


M 


Rt._lb: 

•  ••••••••• 

ON  ERROR  GOTO  Rt_tc 
CREATE  BOAT  Filanaa*,MaK_rac,1024 
CREATE  BOAT  Fl l«tM$,Hu„r«c,  10 
Rt_1c:0FF  ERROR 
ASSIGN  ftD.writa  TO  Filenaa$ 

ASSIGN  •T_wrlte  TO  FilatnaS 
Pcount*1 

LogoS -"ready  to  collect" 

GOSUB  Background 
GOSUB  Logo 
GOSUB  Clrjceys 
GOSUB  Rt2_keys 
Recorder  *1 
Icount-1 
Grid-X_edge 
GOSUB  Wait_loop 


!  Establish  data  A  time  file 

!  If  error  in  file  name,  create  it 
!  If  file  exists,  don't  create 
!  Start  time  file 

•  Open  path  to  data  file 
!  Open  path  to  start  time  file 
!  Total  Nr  Points 


!  Initialize  collect  parameters 

?  Used  by  Display  Data 
!  Wait  for  operator  to  start 

!  Start  collection 


Rt_2a:  !  Start  collection 

f  ••••••••• 

I/////////////////////  Get  Data  from  Freq.  Counter  //////////////////// 
Collect:  ! 

WHILE  Record_nr<-Max_rec  f  Collect  while  disk  space 

WHILE  Icount <-256  !  Collect  256  data  points 

ENTER  *Hp_freq;Frequency  !  Enter  data  from  counter 

Time-TIHEDATE  !  Get  time  ^  t 

IF  Icount-1  THEN  S_time-Time  !  Start  time  of  256  block 

T_data< Icount >-T ime-S_t ime+1  !  Save  integer  time  to  seconds 

Fda  ta- IN7  <  D  rem  l  •  (F  requ*ncy-C_Jk>*nd)  > 

IF  Fdata>*Fl imit  THEN  Fdata-F limit 
IF  Fdata<*-Fl imit  THEN  Fdata--Flimit 
F  req-F data/D_res 1 

F  data< Icount > -Fdata  !■  Save  freq  to  "D_ reel"  resolution 

GOSUB  Dieplay^data  f  Data  to  screen 

Icount* Icount* 1  !  Up  data  counter 

Pcount-Pcount*1 

END  WHILE  !  Datum  array  now  full 

!  Now  have  256  data  points**. 

?  Put  out  to  disk 

OUTPUT  #D_wr  i  te . Recorder ;  T_data< • ) * F_data< • > 

OUTPUT  #T_wri te,Record_nr;S_time 


Recorder  -Recorder  *1 
Icount-1 
END  WHILE 
•  *•«•»•••• 

Rt_2b: 

t  #•••••••• 

Logof- "coll action  terminated" 

Ljos*-7 

GUSUB  Logo 

IF  Record„nr>Hax  rec  THEN  Rt_2c 
FOR  I* Icount  TO  256 
T.d»U(I)*0 
F,dtU(!)*0 
NEXT  I 


!  Sot  data  countar 
!  Dona--f illad  disk  ft  la 

!  Tarnlnata  col lac t ion 


t  Position  logo  at  botto* 
!  not  to  obscura  data 


?  Null  Tiaa 
t  Null  Franuancy 


•  Nan  hava  256  data  points 
f  Final  out  to  diafc 

OUTPUT  MLwr i ta , Racord_nr j  T_data< • > , F_d*ta< • > 

OUTPUT  •T_urlta,Rscord_nr;S_tiaa 


4810  Rt_2c:  ? 

4820  ASSIGN  9D_writa  TO  *  f  Clow  FiIm 

4830  ASSIGN  IT.wnti  TO  • 

4840  GOSUB  Clrjrays  ?  Loop  back  to  scraan  options 

4850  GOSUB  RtOJrays 
4880  GOTO  Mait_loop 
4870  ? 

4880  Pd:!////////////////////  Plot  Oata  froa  Disk  ///////////////////////// 

4890  !  ********* 


4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5318 

5320 

5330 

5340 

5350 

5388 

5378 

5388 

5390 

5488 


Plot_dislc : ! 

f  •••••••»• 

INPUT  “OUTPUT  TO  PLOTTER  <Y/N>"#Plt* 
LogoS -"PLOT  DISK  DATA" 

GOSUB  Cl r  Jr  ays 
IF  PI t$-"Y"  THEN  GOSUB  Hp.gl 
IF  PI tSO”Y"  THEN  GOSUB  Sat_up 
IF  PI t$<>”Y”  THEN  GOSUB  Logo 
GOSUB  Rt3Jrays 
GOTO  Uait_loop 
!  **•••*•• 

RtJ3a: ! 

f  ••*••»•» 

ASSIGN  8D _path  TO  FilanaaS 
ASSIGN  8T_path  TO  FiletneS 
Pcount-1 
Gr id-X_edge 

FOR  Recorder- 1  TO  Max_rec 

ENTER  #Djpath*Racord_nr ; T_data<*> ,-F. 
IF  Record__nr-1  THEN 

ENTER  8T _path>Record_nr;T_f  irst 
END  IF 

ENTER  GT_j>ath,Record_nr;S_tine 
IF  T_f  irst>S_t iae  THEN  Rt_3b 
Icount- 1 

WHILE  Icount<-256 

IF  T_data< Icount >-0  THEN  Rt_3b 
T iaa* T  data< Icount ) *S_t iaa- 1 
Fdata-F__data<  Icount ) 

F  raq-F  dat a/D_r as 1 
GOSUB  Display_data 
Icount- Icount* 1 
Pcount-Pcount+1 
END  WHILE 
NEXT  Racord_nr 
t 

Rt_3b:  ! 

?  **•*«*•»*••* 

LogoS»"plot  coaplatad" 

L_pos-0 
L1^pcfs«10.1 
LDW  98 
CLIP  OFF 

IF  PltSO"Y”  THEN  GOSUB  Logo 
LI 


Ll^pos* 
LDW  0 


CLIP  ON 

ASSIGN  fSjNith  T 

SIGN  #Oltb 
UB  Cir Jreys 


!  t iaa  4  fraq  scaling  bafore 


!  displaying  data  f roa  disk 


!  Open  Raw-data  File 
!  Open  Tine  file 
?  Total  #  points  counter 


?  Read  block  of  data  froa  disk 
_data<«) 


!  Sat  data  in  block  countar 

t  End  if  taro  (no  data) 

!  Reconstruct  Julian  Tiaa 


♦  Display  data  to  scraan 
!  Up  data  countar 


1  Loop  until  dona 


!  Put  logo  at  sida  of  scraan 


!  not  to  obscure  data 


!  C loss  files 


5410  60SUB  RtOJceys 
5420  GOTO  Mai t_ loop 
5430 

5440  Set_up:  !/////////////  Initial  Setup 
5450  GINIT 
5460  GCLEAR 

5470  PLOTTER  IS  CRT , " INTERNAL" ; COLOR  HAP 
5480  RESTORE  Color_map 
5490  READ  Colors!*) 

5500  SET  PEN  1  INTENSITY  Colors!*) 

5510  Large-6 
5520  Nediua-4 
5530  Seal  1-3 
5540  Tel  low- 7 
5550  Ltgrey«8 
5560  Green-9 
5570  Blue-13 
5580  Grey-3 
5590  Red-4 
5600  GRAPHICS  ON 


!  Loop  back  and  await  operator 
f  c owe and 

//////////////////////////////// 

!  Initialize  graphics 
?  Clear  screen  of  graphics 
!  Use  screen  as  plotter 
!  Data  pointer  for  read  colors 
!  Enter  new  color  map 
!  Establish  new  colors 
!  Large  letters 
!  Med i uw  letters 
?  Small  letters 
!  Yellow  Pen 
!  Ltgrey  Pen 
!  Green  Pen 
f  Blue  Pen 
!  Grey  Area  Pen 
!  Red  Pen 


5610  Xrange-100*HAX!1 , RATIO) 

5620  Yrange-100*HAX<1J /RATIO) 

5630  VIEMPORT  . 05*Xrange» .95*Xrange , .08* Y range* .98* Y range 

5640  HINDOH  -10.5*10.5.-10.10  !  Set  initial  screen  window 

5650  RETURN 

5660  • 

5670  Hp_gl : PLOTTER  IS  705,"HPGL" 

5680  RETURN 

5690  Gdump :  !/////////////  Dump  Graphics  to  Printer  /////////////////z7/ 

5700  DUHP  GRAPHICS  #701 
5710  RETURN 
5720  Rente:  ! 

5730  IF  Dsplyf-’W  THEN 

5740  PRINT  TABXY<25, 1 ) ; “Center  Frequency  is  ";C  band/1000;"  kHz" 

5750  PRINT  TABXY!9 , 4) ; "FREQUENCY  Icount  Dcount"!  Label  screen 

5760  PRINT  TABXY<67,4> ;"TIHE" 

5770  IF  Du*w»$-"0FF”  THEN 

5780  PRINT  TABXY!9* 17) : "GRAPHICS  DUHP  IS  OFF" 

5790  PRINT  TABXY<30,17);Gsize$ 

5800  ELSE 

5810  PRINT  TABXY<9, 17) ; "GRAPHICS  DUHP  IS  ON  " 

5820  PRINT  TA8XY<30,17);Gsize* 

5830  END  IF 

5840  PRINT  TABXY<67 ,17) ; "RECORD" 

5850  END  IF 
5860  RETURN 
5870  END 
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SIGNAL  collection  program  two 


Written  by:  R.L.  KELLOGG 

MODIFIED  MRP 


10  February  1984 
14  March  1984 


SIGNAL  COLLECTION  is  thr  acquisition  program 
for  fetching  frequency  and  time  data  and 
storing  it  onto  a  FLOPPY  disk. 

Freq  data  from  HP-5345a  digital  freq  counter 
Time  data  from  HP-9836c  internal  clock 
Stored  on  left  Floppy  disk  in  BDAT  format 

options:  <1>  screen  display  and  record  in  real-time 
<2)  screen  display  from  Floppy  disk  record 


F  req 
T  ime 

Disk 


Frequency  data 
Time  data 


HP-Preq  Counter-702 
Resolution  is  »1Hz 
Time  from  internal  clock 
Resolution  is  1  second 


?  * 

OPTION  BASE  1 
0EG 

DIM  Logos [301 
DIM  FiIenmeSI30] 
INTEGER  F_data< 1 :256> 
INTEGER  T_data< 1 :256> 
REAL  Coiors< 15,3) 


Freq  A  Time  data  are  transferred  to  the  disk 
in  blocks.  It  takes  about  1  second  each  256 
data  points  for  the  file  transfer.  Expect 
I/O  to  the  disk  file  with  minimum  data  loss. 

To  maximize  the  disk  storage  capacity*  both 
Time  and  Frequency  are  stored  as  2-byte 
integer  numbers.  Frequency  is  scaled  to  allow 
.1  Hz  resolution.  Time  storage  is  more 
problematic.  The  Julian  time  of  the  first  data 
word  of  each  256-block  is  stored  in  a  separate 
file  called  "time” .  The  actual  time  stored  in 
the  256-block  is  the  number  of  seconds  <+one> 
since  the  filed  Julian  time.  This  ailows 
any  256-block  to  range  up  to  32,766  seconds,  or 
about  half  a  day  (or  about  one  t ime/f requency 
intercept  every  15  minutes). 

Can  output  graphs  to  either  the  printer  or 
the  HP  7470A  Plotter. 


! 


!  Title  string 
!  File  name  string 
!  Frequency  data  block 
!  Time  data  block 
!  Color  Map 


OUTPUT  KBD  USING  ,V,BM;255,75 
CONTROL  CRT tS; 140 
RESET  7 

ASSIGN  BHp.fr eq  TO  712 
REMOTE  BHp.fr eq 


!  Clear  screen  of  alpha 
1  Alpha  in  blue  vice  green 

!  HP-FREOUENCT  COUNTER 
f  Bus  700  (select  code) 


f 


610  ON  INTR  7,!4  GOSUB  Dread 
620 
630 

640  ! 

650  Sys_disk$' 

660  Sys_data$ 

670  FilenmeS 
680  FiletmeS-" 

690  Max_rec-250 
700 

710  !  IMPORTANT  POINT:  > 

720  !  > 

730  !  ONE  DISK  > 

740  !  > 

750  !  18  HRS  COLLECTION  > 

760  !  > 

770  !  TIME  > 

780 
790 

800  X_edge-9 
810  Y_edge*8 
820  T_width-5 
830  F_width-200 
840  C_band- 100000 
850  L_pos*1 
860  D_resl*10 
870 
880 

890  F l imi t-32767 
900 

910  Dump$-"OFFM 
920  PltS-"N" 

930  Gsi ze$-"SMALL  GRAPH** 

940  DUMP  DEVICE  IS  701 
950  Dsply$*"ON" 


!  Right  disk  for  programs 
!  Left  disk  for  data 
!  Ray  data  file 
!  Start  time  f lie 
!  Ray  data  file  record  length 
?  Disk  holds  max  270*336.  bytes 
!  Utilization  as  follows: 

!  256x<2*2>-1024  bytes/ record 
!  1024x250  -256.000  bytes/disk 
! 

•  If  the  data  rate  is  one 
!  measurement  per  second*  then 
!  256x250  -64000  time/freq  pts 

!  64000/86400 -.7 4  days-18  hrs 

t 

!  Clip  edge  of  screen 
!  Clip  height  of  screen 
!  Tine  width  default-5  Minutes 
!  Freq  width  default-***/*  200  Hz 
!  Freq  center  default- 100000  Hz 
!  Logo  position  default 
!  10  gives  1  decimal  point 
!  resolution.  This  alloys  an 
!  INTEGER  range  of  ♦/-  3.276  kHz. 

!  Prevents  error  stop  if  freq. 

!  exceeds  integer  limit. 

?  Default  No  printer  dump  of  Graph 
!  Default  No  plot  to  HP  7470A 


360  ! 

980  ! 

990  !/////////////////////  BEGIN  PROGRAM  /////////////////////////////// 

1000  !  **• . 

1010  S tar t_sc reen : ? 

1020  INPUT  "MAX.  TIME , <M/H> ,  MIN., MAX,  FREQ.  (For  plotting)" * T.width, Tm$.Fmin*F 


?  Add  012  (device  address) 

!  Frequency  counter  works  on  an 
!  interrupt  basis. 


**:  INTERNAL. 4.0" 
INTERNAL, 4,1" 
*raw_data"ASys_data$ 
t ime*'&Sys_dataS 


max 

1030  F_width-<Fmax*Fmin> 

1040  !  ********* 

1050  GOSUB  Set-up 
1080  !  •****••*• 

1070  Begin: f 
1080  !  ********* 

1050  LogoS-"DATA  ACQUISITION"  !  Let  operator  choose  option 

1100  GOSUB  Background 

1110  GOSUB  Logo 

1120  GOSUB  Clrjceys 

1130  GOSUB  RtOJieys 

1140  GOTO  Nai t  loop 

1 150  Kyit/////7//////////t(9v  //////////////////////////// 

1160  RtOJrcy*:! 

1170  ON  KEY  0  LABEL  "COLLECT  DATA"  GOTO  R»*l  tiM 
1100  QNICEY  A  LABEL  "REVIEW  DISK"  GOTO  Plot.duk 
1190  RETURN 
1200  RtlJ 


**rtT  iin^i ^  ' 


1210  ON  KEY  0  LABEL  "CONT.  PROGRAM"  GOTO  Rt_1b 

1220  ON  KEY  4  LABEL  "INIT.  DISK"  GOSUB  Rt_U 

1230  RETURN 
1240  Rt2_ksys: 1 

1250  ON  KEY  0  LABEL  "START  COLLECT"  GOTO  Rt_2a 

1260  ON  KEY  1  LABEL  "G  DUMP  ON/OFF"  GOSUB  G_d«p 

1270  ON  KEY  2  LABEL  "CfiG.  SCALE"  GOSUB  T.scsl* 

1280  ON  KEY  3  LABEL  "GRAPH  SIZE"  GOSUB  Gs»  zs 

1290  ON  KEY  4  LABEL  "STOP  COLLECT"  GOTO  fft_2b 
1300  ON  KEY  5  LABEL  "DISPLAY  OFF/ON"  GOSUB  Dsply 
1310  RETURN 
1320  Rt3_ksys;t 

1330  ON  KEY  0  LABEL  "START  PLOT"  GOTO  Rt.3» 

1340  ON  KEY  1  LABEL  "G.DUNP  ON/OFF"  GOSUB  G_d«*p 
1350  ON  KEY  2  LABEL  ”CHG.  SCALE"  GOSUB  T.scals 

1360  ON  KEY  3  LABEL  "GRAPH  SIZE"  GOSUB  G  size 

1370  ON  KEY  4  LABEL  "STOP  PLOT"  GOTO  Rt.Jb 

1380  ON  KEY  5  LABEL  "DISPLAY  OFF/ON"  GOSUB  Dsply 

1390  RETURN 
1400  Clr Jrsys: t 

1410  ON  KEY  0  LABEL  ""  GOSUB  No.opt 

1420  ON  KEY  1  LABEL  ””  GOSUB  No.opt 

1430  ON  KEY  2  LABEL  ""  GOSUB  No.opt 

1440  ON  KEY  3  LABEL  ""  GOSUB  No.opt 

1450  ON  KEY  4  LABEL  GOSUB  No.opt 

1460  ON  KEY  5  LABEL  "”  GOSUB  No.opt 

1470  ON  KEY  6  LABEL  ""  GOSUB  No.opt 

1480  ON  KEY  7  LABEL  ""  GOSUB  No.opt 

1490  ON  KEY  8  LABEL  ”"  GOSUB  No.opt 

1500  ON  KEY  9  LABEL  GOSUB  No.opt 

1510  RETURN 
1520? 

1530  G.dup :  IF  DuspS-'W  THEN 

1540  IF  Dsply *• "ON"  THEN  PRINT  TABXYO.  1 7>  {"GRAPHICS  DUMP  IS  OFF" 

1550  Du*pS-"OFF" 

1560  IF  DsplyS*"ON"  THEN  PRINT  TABXY<30.17>{Gszz»S 

1570  ELSE 

1580  IF  Dsply S’ "ON"  THEN  PRINT  TABXY<9, 17> {"GRAPHICS  DUMP  IS  ON  " 
1590  DuppS’"ON” 

1600  IF  DsplyS-"ON"  THEN  PRINT  TABXY<30. 17) {GsiisS 

1610  END  IF 
1620  RETURN 
1630  ! 

>640  G  .si *•!  ! 

1650  IF  GsiisS- "LARGE  6RAPH"  THEN 
1660  DUMP  DEVICE  IS  701 

1670  GslisSa“SMALL  GRAPH" 

1680  IF  DsplyS-"ON"  THEN  PRINT  TABXY<30,17HGsttsS 

1690  ELSE 

1700  DUMP  DEVICE  IS  701 .EXPANDED 

1710  GsttsS>"LARGE  GRAPH" 

1720  IF  DsplyS*"0N"  THEN  PRINT  TABXY(30.l7>{GsltsS 

1730  END  IF 
1740  RETURN 
1750  Dsply;  ! 

1760  IF  Dsply S- "ON"  THEN 
1770  Dsplyt-MOFF" 

1780  PRINT  CHRS< 12> 

1790  ELSE 

1600  Dsply S-" ON" 


T  0 
1820 
1830 
1840? 
1850 
I860 
1870? 
1880 
1890 
1900 
1910 
1920 
1930 
1940! 
1950 
1960? 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060? 
2070 
2080 
2090? 
2100 
21  >0 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 


GOSUB  Rtnte 
END  IF 
RETURN 

Background: ? 

CLIP  OFF 

GCLEAR 

AREA  PEN  Grey 

OUTPUT  KBD  USING  M#.BM:255,75 
HOVE  *10.5,-10 
CLIP  ON 
RETURN 

Logo:  ? 

LORG  4 
PEN  Yellow 
CSIZE  Large 

FOR  1-0  TO  .1  STEP  .04 
HOVE  L 1  _jpos  ♦  I ,  L_pos 
LABEL  Logo$ 

NEXT  I 

L  DOS*  1 

RETURN 


?  Grey  background 
!  Erase  alphanumeric  writing 


!  Center  Logo 
?  Always  yellow 
?  Always  large  letters 


?  Bold  characters 
?  Re-estab  logo  default  position 


Graf : ?////// ///////////  Graphics  Routine  /////7/////////////////// 
Screen_grid: ? 

IF  PltSO"YM  THEN  GOSUB  Background  ?  Set  up  grey  background 

IF  Tw$-"HM  THEN  Tme$-M  Hinutes  - 
IF  TsS-”H"  THEN  T*e$-”  Hours  ** 

IF  Dsply$-"ON”  THEN  GOSUB  Rente 
IF  PltBO-Y*  THEN  PEN  Ltgrsy 
IF  PltS*"YM  THEN  PEN  1 

* X_edge , X_#dge , * Y  edge , Y_edge  ?  Clip  graph  area  to  9i8 

IF  PIttO-Y-  THEN  PEN  Blue 
? 

!***•*  SCALE  TIHE  AXIS 

IF  T_width<*10  THEN  Xt ic-X_edge/<T_width«*6> 

IF  T_width> 10  AND  T  width<-20  THEN  Xt ic-X_edge/<T_wldth*3> 

IF  T_width>20  THEN  Xmaj-2 
IF  T_width<*20  THEN  X*aj«6 
IF  T_width>20  THEN  Xtio-X_edge/<T_width> 

!***•*  SCALE  FREQUENCY  AXIS 
Ytic»Y_#dge/25 

Yoaj-5 

Ystep-Ytic»Ysaj 

Fstep*F_width«t*tep/(2«t_edge> 

IF  THEN 

ifeldlS TU  D’1*4  A  ®*10 

PEN  2 

EM?i?  *t‘c,Ttlc  *  Draw  end 

EMO  IF 

IF  Plt*<>“Y”  THEN  PEN  Blue 
If  Pltt-T  THEN  PEN  1 


ivt  -v 


?  Draw  blue  axes 
!  Draw  blue  axes 


!  Label  Frequency  Axis 


AXES  Xtic, Ytic.9,8.Xmaj . Ymaj  •  Draw  blue  axes 

AXES  Xtic. Ytic, -9. -8,X»aj# Yaaj  l  Draw  blue  axes 

CLIP  OFF 
?♦♦♦♦♦++ 

Xaxis:  *  +  !  Label  Time  Axis 

! +♦+++++ 

PEN  81 ue 

IF  T_width<6  THEN  Tstep-Xt ic«X«aj 
IF  T_width>-6  THEN  Tstep-2*Xtic*Xaaj 
FOR  1-0  TO  2-<X_edge+.1>  STEP  Tstep 
CSIZE  3 
LORG  6 

MOVE  -X_edge*I.-8.02 
T  x-T_width*I/<2*X_ edge > 

LABEL  USING  MK":T_x 
NEXT  I 
MOVE  0 .-8.6 

LABEL  USING  MK":"TIME  <M;T«e$:M>" 

t  +++++++++ 

Yaxis:  !♦  !  Label  Frequency 

1 ♦♦♦♦♦♦♦♦+ 

PEN  Blue 
F  v*Fain 

FOR  J-0  TO  2»Y_edge* . I  STEP  Ystep 
LORG  8 

IF  F»ax>-1000  OR  F»in<-<- 1000)  THEN 
Fval*F__y/1 000 

IF  ABS<FvalX1.E-6  THEN  Fval-0 
ELSE 

Fval*F_y 

IF  ABS<FvalX1  .E-6  THEN  Fval-0 
END  IF 

MOVE  -9.1 .-Y_edge*J 
LABEL  USING  "ITtFval 
^F^y«F_y*Fstep 

LOIR  90 
MOVE  -10.47.0 
LORG  4 

IF  Fmx>-10Q0  OR  Fain<-<-1000>  THEN 

Fr*-1rHi." 

t  .SC 

FrB-"Mi.M 
ENO  IF 

LABEL  USING  MK" {’’FREQUENCY  i  M;F rS;M  >” 

LOIR  0 
a  IP  ON 
RETURN 

M:  !///////////////////  Display  Data  ///////////////////////////// 

f  •*#*••*** 

Diaplar.data:  ! 
f  ••*#••••• 

WHILE  Grid>-X_edgo  !  Check  for  screen  edge 

GOSUB  Scroon.gr  id 

Uee_rero*T loo  !  Sot  tree  ordinate 

PEN  Blue 
LONG  4 

B^uSiNG  "K**5"$TNRT  AT  n;TIME*<Tii*e_iero>:"  "sD«TE»<T i*e_ioro> 


■4  ?*■ 


I' 


CLIP  ON 
Gr  id*0 
END  WHILE 
IF  DsplyS* 
IF  DsplyS" 


THEN  PRINT  TABXY<9,5)  ;*' 
THEN  PRINT  TABXY<9,5>  ;Freq 


••  !  CLEAR  DATA 

f  Display  FREQ  resolution 
!  to  D_resl' 


IF  Dsply$-**0N"  THEN  PRINT  TABXY<21 ,5) : Icount 
IF  DsplyS-"GN"  THEN  PRINT  TABXY<26 ,5> iPcount 

IF  DsplyS-**  ON*'  THEN  PRINT  TABXY<65,5> ;TIHES<Tiee>  !  Display  HR:HIN:SEC 
IF  DsplyS-*' ON*'  THEN  PRINT  TABXY(S8. 18) ;  Recorder 


IF  DsplyS-**  ON**  THEN  PRINT  TABXY<G8, 18) ;Record_n 
Tpos-T iae-T iae_iero 

IF  TaS-*‘H"  THEN  Xpos-Tpos/30«<X_edge/T_width> 

IF  TaS-**H'*  THEN  Xpos- Tpos/1 800* <X_edge/T_width> 

Xpos - Xpos- X_edge 

Fpos-Freq-Fain 

Ypos-Fpos*2*  Y_edg e/<  Faax -Fa i n  > - Y_edge 
Gr id-Xpos 

IF  Gnd>X_edge  AND  DimpS-'W  THEN  GOSUB  Gduap 


!  Seals  Tim  axis 


!  Output  plot  to  printer 
t  Oops.. .right  edge  run  off 


IF  Grid>X_edge  THEN  Display_data  !  Oops.. .right  edg 

IF  ABS(Fdata)<F limit  THEN 
IF  Plt8<>HYH  THEN  PEN  Yellow 
IF  PI  tS-MY#*  THEN  PEN  1 
HOVE  Xpos , Ypos  !  Plot  data  to  screen 

RPLOT  0.0.-1  !  PEN  UP 

END  IF 

IF  Freq>-Fmax  OR  Fdata>-Fl *ai t  THEN 
IF  PltSOMY**  THEN  PEN  Red 
IF  PltS^'Y"  THEN  PEN  2 
HOVE  Xpos. Y_edge* ,97 
RPLOT  0.0.-1 
END  IF 

IF  Freq<-Fmjn  OR  F data<*-F 1 imi t  THEN 
IF  PItSO-Y-  THEN  PEN  Red 
IF  PI  t$-**Y*'  THEN  PEN  2 
HOVE  Xpos , -Y_edge* .97 
RPLOT  0.0. -I 
END  IF 
RETURN 

!/////////////////  Change  Graph  Scale  ///////////////Z////////// 


T_scale:  !  !  Change  screen  scale  factors 

?  •«»••••*»  for  graphics. 

DISABLE  INTR  7 

LogoS-"scale  tiae/freq  axes** 

GOSUB  Background 
GOSUB  Logo 

PRINT  TABXY<25, 15) ; "Enter  Screen  Width  Time  <ei nutes/ hours >. <H/H> 
INPUT  #*T iee  *\  T_width,  TaS 

PRINT  TABXYC25, 16) ; "Enter  Screen  Height  Fain.,  Faax.  Hi)** 

INPUT  **F req  **,Fain,Feax 
F_width-Faax-Fain 
Logof***  continue*' 

GOSUB  Background 
L^pos-- .5 
GflSUB  Set-up 
PEN  Blue 
GOSUB  Graf 
aiP  OFF 
LORG  4 
HOVE  0*8.15 


%  * 


( 


3610 

3820 

3830 

3840 

3850 

3880 


4K": "START  AT  - s TIHE$<Ti*e_zero> -  ;DATES<  riMw»ro> 


LABEL  USING 
CLIP  ON 
ENABLE  INTR  7 
RETURN 

!///// /////////////////////  Color  Nap  ////////////z////////////////// 


pen  1 
pen  3 
pen  4 
pen  5 


black 

pen 

6 

blue 

white 

pen 

7 

yel low 

grey 

pen 

8 

It  grey 

red 

pen 

9 

green 

green 

pen 

10 

blue 

3870  Color_map:! 

3680  ? 

3690  BATA 
3700  DATA 
3710 
3720 
3730 
3740 
3750 

3760  !  *** 

3770  No_opt:RETURN 
3780  !  •******•• 

3790  Mai t_loop: BEEP  160,. 05 
3800  Loop: DISABLE  INTR  7 
3810  GOTO  Loop 
3820  . . 

3830  Real_tine:  !////////////  Begin  real-ti 
3840  !  **•*••*** 

3850  LogoS-"REAL-TIHE  COLLECTION14 
3860  GOoUB  Background 
3870  GOSUB  Logo 
3880  GOSUB  Clrjreys 
3890  GOSUB  RtIJreys 
3900  CSIZC  Media* 

3910  LORG  4 

3920  LABEL  "*PUT  DATA  DISK  IN  LEFT  DRIVE” 

3930  LABEL  "-INITIALIZE  DISK  IF  REQUIRED” 

3940  CSIZE  Seal  1 
3950  PEN  Green 
3960  LABEL  MM 

3370  "(COLLECTION  replaces  previous  DATA  on  this  DISK:  Record  by  Record)4 

3980  GOTO  Mai t  loop 

3990  1////////7////////  Initialize  Data  Disk  ///////////////////////// 

4000  ‘ 


0,0,0,  1,1,1,  .2. .2, .2,  1,0,0,  0,1,0,  0,0,1,  1,1,0 
.1,.1,.1,  0,1,0,  0,0, 1.1, 1,0,  0,1,0,  0,1,1,  0,0,1,  1,0,1 
pen  0  black  pen  6  blue  pen  11  yellow 

pen  12. green 
pen  13  cyan 
pen  14  blue 
pen  <5  magenta 

?  Du**y  routine 

?  Malt  Loop 

prograa  //////////////////// 
•  Set  up  screen 


!  Change  Color 


4010  Rt  la: 


4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140  ! 

4150  Rtjb: 

4160  1  eeeeeeee* 

4170  ON  ERROR  GOTO  Rt_1c 


CSIZE  Ned i ua 
LORG  4 
LABEL  ”” 

LABEL  ”” 

LABEL  "INITIALIZATION  STARTED" 
INITIALIZE  Sys.dataS 
LoooS* "con t inue" 

GOSUB  Background 
GOSUB  Logo 
BEEP  160,, 05 
RETURN 


4180 

4180 


CREATE 

CREATE 


4200  Rt_1csOFF  ERROR 


T  FilenM$,Hax_rec,1024 
T  Filet»eS,Nai.rec, 10 


Request  initiization 


!  Initialize  left  data  disk 


!  Establish  data  t  tine  file 

!  If  error  in  filo  nwe,  croato  it 
!  If  filo  exists,  don't  croato 
!  Start  tiao  filo 


m 


4210 

ASSIGN  #D  write 

TO  FilenmeS 

4220 

ASSIGN  #T  write 

TO  FiletmeS 

4230 

Pcount-0 

4240 

Logo$a" ready  to 

collect" 

4250 

GOSUB  Background 

4260 

GOSUB  Logo 

4270 

GOSUB  Cl r  keys 

4280 

GOSUB  Rt2  keys 

4290 

Record  nr*1 

4300 

lcount*0 

4310 

Gr id*X_edge 

4320 

GOSUB  Wait  loop 

4330 

t  ••«•«•••• 

4340 

Rt  2a: 

4350 

!  Open  path  to  data  file 
f  Open  path  to  start  t lee  file 
!  Total  Nr  Points 


!  Initialize  collect  parameters 

?  Used  by  Display  Data 
!  Wait  for  operator  to  start 

!  Start  collection 


4380  Collect:  • 

4370  OUTPUT  #Hp  f req:"E8" .ME:M ."GO"  !  Remote  Enable  4  Addresses  Counter  to  talk 
4380  ENABLE  INTff  7:2  ......... 

4390  Idler:  !//////////  Malting  for  Frequency  Counter  Interrupt  //////////// 

4400  1 

4410  IF  Dsply$*"0N”  THEN 

4420  DISP  USING  Fmta; DATES!  TIMEDATE) TINES! TIHEDATE) .Freq. Icount .Pcount .R 


ecord_nr 
4430  ELSE 
4440  DISP  ”” 

4450  END  IE 
4460  GOTO  Idler 

4470  Fmta: IMAGE  7X*K,K,K,X.MDDDD.D.3X.DDD.3X,DDDDD.3X,DDD 
4480  ? 

4490  ! ////////////////  Terminate  Data  Collection  ////////////////////////// 

4500  !  . 

4510  Rt_2b:  * 

4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 


!  Position  logo  at  bottom 
!  not  to  obscure  data 


Mull  Ti me 
Null  Frequency 


LogoS“"col  lect  ion  terminated** 

L  dos*“7 
G0SUB  Logo 

IF  Record_nr>Hax_rec  THEN  Rt_2c 
FOR  I-Icount  TO  256 
T_data< I >*0 
F_data< I >*0 
NEXT  I 

f  Now  have  25b  data  points 
!  Final  out  to  disk 

OUTPUT  $D_wr  1  te * Recorder ;  T_data<*  >  .F_data<  *  > 

OUTPUT  §T_wr i te fRecord_nr ;S_t tme 
4650  Rt_2c :  ! 

4660  ASSIGN  #D_write  TO  *  !  Close  Files 

4670  ASSIGN  #T_wnte  TO  * 

4680  GOSUB  Clr_keys  *  Loop  back  to  screen  options 

4690  GOSUB  RtOJceys 
4700  GOTO  Malt  loop 

4710  Pd: 1/7/ 7 7/7/ 7 /////// 7 7/ 7  Plot  disk  data  7777777/77/7/777777/7777777777 


4720 


4730  Plot_disk : ! 

4740  *  *••***••* 

4750  INPUT  "OUTPUT  TO  PLOTTER  !Y/N>’\PltS  !  Plot  on  7470A  Plotter? 
4760  LogoS-"PL0T  DISK  DATA"  1  tieeifreq  acaling  before 

4770  GOSUB  Clrjceys 
4780  IF  Plt$*"Y"  THEN  GOSUB  Hp_gl 
4790  IF  Plt$<>”Y"  THEN  GOSUB  S«t_up 
4800  IF  PI t$<>"Y"  THEN  GOSUB  Logo 


!  displaying  data  from  disk 


4810  GOSUB  Rt3_keys 
4820  GOTO  Wait_loop 
4830  !  ******** 

4840  Rt_3a: ! 

4850  !  . 

4880  ASSIGN  §D_path  TO  FilenmeS  1  Open  Raw-data  File 

4870  ASSIGN  8 T  .path  TO  FiletmeS  ?  Open  Time  file 

4880  Pcount-0  !  Total  *  points  counter 

4890  Grid-X.edge 

4900  FOR  Record_nr-1  TO  Max„rec 

4910  1  Road  block  of  data  trow  disk 

4920  ENTER  4D_path .Record.nr ; T_data< *> ,F_data< • > 

4930  IF  Recorder- 1  THEN 

4940  ENTER  §T_path .Record.nr ; T_f i rst 

4950  END  IF 

4960  ENTER  #T _path ,Record_nr ;S_t me 

4970  IF  T_f  irst>S_time  THEN  Rt_3b 

4980  Icount-0  !  Set  data  in  block  counter 

4990  WHILE  Icount<256 

5000  Icount-Icount* 1  ?  Op  data  counter 

5010  Pcount-Pcount +1 

5020  IF  T_data< Icount  >-Q  THEN  Rt_3b  !  End  if  zero  (no  data) 

5030  T  me-T_data<  Icount  >+$_t  me- 1  !  Reconstruct  Julian  Time 

5040  Fdata"F_data( Icount ) 

5050  Fre^*Fdata/D_resl 

5060  GOSUB  Display_data  1  Display  data  to  screen 

5070  END  WHILE 

5080  NEXT  Record.nr  ?  Loop  until  d  .e 

5090  ?  *» . 

5100  Rt_3b:  • 

5110  !  . 

5120  Loqo$*"plot  completed'* 

5130  L_pos-0  !  Put  logo  at  side  ot  screen 

5140  LI _pos*10,1  !  so  as  not  to  obscure  data 

5150  LDIR  90 
5160  CLIP  OFF 

5170  IF  PI t$<>"Y"  THEN  GOSUB  Logo 


5180  L1_pos*0 

5190  LDIR  0 

5200  CLIP  ON 

5210  ASSIGN  *D_path  TO  * 

5220  ASSIGN  #T_path  TO  • 

5230  GOSUB  Clrjreys 
5240  GOSUB  RtO  keys 
5250  GOTO  Wai t.loop 
5260 

5270  Set  up;  !//////////////  Initial  Setup 
5280  GIN IT 

5280  GCLEAR  _ _ 

5300  PLOTTER  IS  CRT . " INTERNAL” ; COLOR  HAP 

5310  RESTORE  Co lor. map 

5320  READ  ColorsO 

5330  SET  PEN  1  INTENSITY  Colors!*) 

5340  Large-6 
5350  Medium- 4 
5360  Small-3 
5370  Yellow-7 
5380  Ltgrey-8 
5390  Green-9 
5400  Blue-13 


•  Close  f i les 


•  Loop  back  and  await  operator 
!  command 

nnmuttmuuiniumiuum 

•  Initialize  graphics 

!  Clear  screen  of  graphics 
!  Use  screen  as  plotter 
|  Data  pointer  for  read  colors 
!  Enter  new  color  map 

•  Establish  new  colors 
!  Large  letters 

•  Medium  letters 
!  Small  letters 

•  Yellow  Pen 
!  Ltgrey  Pen 
!  Green  Pen 
!  Blue  Pen 


S410  Grey *3  ?  Grey  Area  Pen 

5420  Red-4  !  Red  Pen 

5430  GRAPHICS  ON 
5440  Xrange»1 00*MAX< 1  *  RATIO  > 

5450  Yrange- 1 00*MAX< 1 . I /RATIO) 

5480  VIEWPORT  .05-Xrange , .95*Xrange . .08»Yrange, .98*Yrange 

5470  WINDOW  ‘10.5,10.5.-10,10  *  Set  initial  screen  window 

5480  RETURN  ,  . 

5490  !  ////////////////  Assign  Graphics  to  HP  7470A  Plotter  /////////////// 

5500  Hp_gl  {PLOTTER  IS  705.MHPGL,< 

5510  RETURN 

5520  Dread:  !//////////////  Read  frequency  -ounter  //////////////////////// 
5530  Icount- Icount +1 
5540  Pcount »pcount ♦ 1 

5550  ENTER  $Hp_f req ; Frequency  !  Enter  data  4  row  counter 

5580  T ime-TIMEDATE  !  Get  time 

5570  IF  Icount- 1  THEN  $„t ime-T ime  !  Start  time  of  258  block 

5580  T_data< Icount ) -T ime-S_t ime+1  ?  Save  integer  time  to  seconds 

5590  Fdata-INT<D_resl*<Frequency-C_band> ) 

5600  IF  Fdata>-F 1 imi t  THEN  Fdata-F limit 
5610  IF  Fdata<--F limit  THEN  Fdata--F 1 imi t 
5620  Freq-Fdata/D_resl 

5630  F_data( Icount )-Fdata  f  Save  freq  to  **D_resl  resolu 

5640  GOSUB  Display_data  1  Data  to  screen 

5650  IF  Icount>-256  THEN  GOSUB  Dstore  !  Ud  data  counter 

5660  ENABLE  INTR  7 

5670  TRIGGER  §HP  freq 


f  Save  freq  to  **D_resl' 
!  Data  to  screen 
!  Uo  data  counter 


resolution 


5680  RETURN 
5690 


!  Now  have  256  data  points... 
!  Put  out  to  disk 


i  . 


5710  Dstore:  •//////////////  Output  Data  to  Disk  ///////////////////////// 

5720  ? 

5730  OUTPUT  SD. .wr 1 te ,Record_nr : T_data<*> ,F_data<*> 

5740  OUTPUT  GT_urite.Record_nr ;S_time 
5750  Record_nr*Record_nr+1 

5780  lcount*0  !  Set  data  counter 

5770  IF  Reco rd_n r >Max_rec  THEN  STOP  !  Done— filled  disk  file 

5780  RETURN 
5790  1 

5800  Gdunp: !////////////////  Output  graph  to  printer  /////////////////// 

5810  DUMP  GRAPHICS  *701  1  For  double  sue  plots  EXECUTE  'DUMP  DEVICE  IS  *701, EX 
PANDED'  once,  before  running  the  prograa. 

5820  RETURN 
5830  Rente:  1 

5840  PRINT  TABXYC25, 1 > : "Center  Frequency  is  "{C_band/1000{"  kHz 
5850  PRINT  TABXY<9, 4) {"FREQUENCY  Icount  Dcount"  !  Label  screen  and 
5860  PRINT  TABXY<67,4) {"TIME"  !  Create  black  grid  with 

5870  PRINT  TABXY<S7, 17) {"RECORD"  !  blue  axes 

5880  PRINT  TABXYO.  17)  {"GRAPHICS  DUMP  IS  ON  " 

5890  IF  Duap*<>"0N"  THEN  PRINT  TABXYO,  1 7)  {"GRAPHICS  DUMP  IS  OFF" 

5900  IF  Gsi zeS*"SMALL  GRAPH"  THEN  PRINT  TABXY<30. 17) {"SMALL  GRAPH" 

5910  IF  GslzeS-"LARGE  GRAPH"  THEN  PRINT  TABXY 00.17) {"LARGE  GRAPH" 

5920  RETURN 
5930  END 


